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Volete semplificare la gestione del¬ 
la vostra contabilità familiare? 
Questo programma vi permette di 
conoscere per ogni mese le spese 
che effettuate in dettaglio , riepilo¬ 
gate per voci ed in percentuale. 
Infatti dopo avere introdotto i dati 
richiesti (per esempio l'ammontare 
della bolletta della SIP, dell'affitto>, 


delle rate del mutuo, ecc.) avrete 
a disposizione varie opzioni per 
visualizzare le voci del vostro bi¬ 
lancio. Se avete poi la stampante 
potrete anche stampare i rendicon¬ 
ti mensili e tenere sempre aggior¬ 
nato, senza dispendio di tempo e 
fatica, il registro dei conti di casa. 


4 SLOT = 1 : REM SLOT STAMPANTE. 

5 00$ = "ON" 

6 DIM MS <12),TS<100),T1<100),CS<100),CI<100),D<100),G<100),I S< 10 

0) ,1(100),SS<100),S<100): GOSUB 10090 
10 DEF FN PCX) = INT <100000 * INT <10000 * <X / S5) * 100 ♦ 
5) / 100000000 ♦ 5 / 10) / 10 
GOTO 250 

PRINT TAB< 20 - LEN <NS) / 2)NS: RETURN 
TEXT : HOME : GOSUB 9010 

PRINT : PRINT SPC< 11 SBILANCIO FAMILIARE PRINT 

9010: PRINT 

"SONO PREVISTE LE SEGUENTI CATEGORIE PRINT 


25 

50 

250 

300 

375 

400 

425 

450 

475 

500 

525 

550 

575 

600 

625 

626 


628 

630 

640 

700 

725 

750 

775 

800 

810 


GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


IF 
NI? 
ED = 
VTAB 
M 
IF 
VTAB 


" 1. PAGAMENTO PRESTITI" 

" 2. GAS & ELETTRICITÀ'- 
" 3. TELEFONO 
" 4. SPESE DI TRASPORTO" 

" 5. CARTE DI CREDITO" 

" 6. ALIMENTARI" 

" 7. SPESE VARIE" 

" 8. LIBRETTO DI RISPARMIO": PRINT 
: GOSUB 9010 

NOT ASKED THEN VTAB 23: HTAB li INPUT 
< S/N) ";NS: IF LEFTS <NS,1) * "S" THEN 
1 : GOTO 250 

23: HTAB 1: CALL - 958: INPUT "QUALE MESE ? <1-12) ";M 


"VUOI LE ISTRUZIO 
GOSUB 17000 :ASK 


< 1 OR MM 
23: HTAB 1 
";: INPUT "" ; YY 
HOME : PRINT SPC< 

M 


> 12 THEN 628 
CALL - 958: 


PRINT MS<MM) 


DI QUALE ANNO? 


LEN <MS<r*1)) / 2) ; "PER IL MESE DI 


MS(MM)" 
INPUT 
INPUT 
INPUT " 
HOME 
VTAB 8: 


: 

"DAI 

"DAI 

"DAI 


10 - 
PRINT : PRINT 

L'IMPORTO RATE PAGATE: ";M: PRINT 
I COSTI DI GAS/ELETTRICITA': ";U: PRINT 
I COSTI DEL TELEFONO: ";TT: PRINT 


PRINT " HAI SPESE DI TRAPORTO? "j: GET NS: PRINT NS; 


825 IF NS 


’N" THEN PRINT : GOTO 1000 
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828 IF N$ < > "S" THEN GOSUB 12000: GOTO 810 

829 HOME 

830 VTAB 1: HTAB 9: PRINT "SPESE DI TRASPORTO" 

835 UT - 2:UB = 8:UL = 3:UJU = 34: GOSUB 10000 

840 PRINT : PRINT "RISPONDI 'FINE' QU*WDO HAI INTRODOTTO ": PRINT 
" TUTTI I DATI." 

842 TEXT 

843 VTAB 11 : POKE 34,10 
850 NT * NT ♦ 1 

860 PRINT "DESCRIZIONE: ";NT}: INPUT " => ";T*<NT> 

865 IF T*(NT) = "FINE" THEN TEXT : GOTO 1000 
870 INPUT "IMPORTO => ";T1(NT) 

872 PRINT 

880 S = S ♦ TI(NT) 

890 GOTO 850 
1000 HOME 

1010 VTAB 8: PRINT " HAI SPESE PER CARTE DI CREDITO? ":: GET N 
*: PRINT NS; 

1025 IF N* * "N" THEN PRINT : GOTO 1200 

1028 IF NI < > "S" THEN GOSUB 12000: GOTO 1010 

1029 HOME : HTAB 9: PRINT "SPESE PER CARTE DI CREDITO" 

1030 UT = 2:UB = 8:UL = 3:UU = 33: GOSUB 10000 

1040 PRINT : PRINT "RISPONDI 'FINE' QUANDO HAI INTRODOTTO ": PRINT 
" TUTTI I DATI." 

1050 TEXT : VTAB 11: POKE 34,10 

1060 NI = NI ♦ 1 : PRINT "DESCRIZIONE N. "}N1j: INPUT " => " ; C* 

(NI ) 

1065 IF C*(N1> = "FINE" THEN TEXT : GOTO 1200 
1070 INPUT "DAI L'IMPORTO => ";C1<N1> 

1075 PRINT 

1080 SI = SI ♦ CI(NI> 

1090 GOTO 1060 
1200 HOME 

1210 VTAB 8: PRINT " HAI SPESE ALIMENTARI? ";: GET N*: PRINT 
NS ; 

1225 IF NI = "N" THEN PRINT : GOTO 1400 

1226 IF NI < > "S" THEN GOSUB 12000: GOTO 1210 

1228 HOME : HTAB 12: PRINT "ALIMENTARI" 

1230 UT = 2:UB = 8:UL = 3:UU = 33: GOSUB 10000 

1240 PRINT : PRINT " DAI ZERO (0) PER DATA QUANDO ": PRINT "HAI 
INTRODOTTO TUTTI I DATI. 

1245 TEXT : VTAB 111 POKE 34,10 
1250 N2 — N2 ♦ 1 

1260 INPUT "DAI IL GIORNO DEL MESE => ";D(N2> 

1265 IF D(N2) = 0 THEN TEXT : GOTO 1400 

1270 INPUT "DAI LA CIFRA SPESA => ";G(N2> 

1275 PRINT 

1280 S2 = S2 ♦ G(N2) 

1290 GOTO 1250 
1400 HOME 

1410 VTAB 8: PRINT " HAI DELLE SPESE VARIE? ";: GET Nt: PRINT N 

*; 

1425 IF NI = "N" THEN PRINT : GOTO 1600 

1426 IF NI < > "S" THEN GOSUB 12000: GOTO 1410 

1428 HOME : HTAB 10: PRINT "SPESE VARIE" 

1430 UT = 2:UB = 8:UL = 3:UU = 33: GOSUB 10000 

1440 PRINT : PRINT "RISPONDI 'FINE' QUANDO HAI ": PRINT "INTRODO 
TTO TUTTI I DATI." 

1445 TEXT : VTAB 11: POKE 34,10 
1450 N3 = N3 + 1 

1460 PRINT "DESCRIZIONE N. ";N3;: INPUT " => ";IS<N3> 

1465 IF I*(N3> = "FINE" THEN TEXT : GOTO 1600 
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"|I<N3) 


1470 INPUT * DAI L'IMPORTO -> 

1473 PRINT 
1480 S3 - S3 ♦ I(N3) 

1490 GOTO 1430 
1600 HOME 

1610 VTAB 81 PRINT "KWI VERS**1ENTI SU LIBRETTI A RISPARMIO?";: GET 
N*: PRINT NS; 

1613 IF N* « "N" THEN PRINT : PRINT : GOTO 1800 
1623 IF NI < > "S" THEN GOSUB 12000: GOTO 1610 
1626 HOME : HTAB 13: PRINT "LIBRETTI A RISPARMIO" 

1630 UT ■ 2:UB - 8:UL = 3:UU = 33: GOSUB 10000 

1640 PRINT : PRINT "RISPONDI 'FINE' QUANDO HAI INTRODOTTO ": PRINT 
" TUTTI I DATI." 

1642 TEXT : VTAB 11: POKE 34,10 

1643 PRINT 
1650 N4 * N4 ♦ 1 

1660 PRINT "DAI IL NUMERO DEL CONTO ";N4j: INPUT " -> ";SS<N4) 

1665 IF S*<N4> = "FINE" THEN TEXT : HOME : GOTO 1800 
1670 INPUT "DAI L'IMPORTO VERSATO ■> ";S<N4> 

1672 PRINT 

1680 S4 » S4 ♦ S<N4) 

1690 GOTO 1650 
1800 PRINT 

1805 HOME 

1806 GOSUB 16000 
1810 GOSUB 9010 

1820 Nt = "BILANCIO PER IL MESE DI": GOSUB 50 


1830 

PRINT 

SPC( 16 - LEN <M*(MM)) 

/ 2) ;M*<MM);" 

H 

;YY 


1840 

PRINT 







1830 

GOSUB 

9010 






1860 

PRINT 







1900 

PRINT 

"PAGAMENTO PRESTITI 

L." ; :V 

■ 

M: 

GOSUB 

14000 

1925 

PRINT 

"GAS & ELETTRICITÀ' 

L." ; iV 


U: 

GOSUB 

14000 

1950 

PRINT 

•TELEFONO 

L." ; :V 

* 

TT: 

GOSUB 

14000 

1975 

PRINT 

"SPESE DI TRASPORTO 

L." ; :V 

« 

S: 

GOSUB 

14000 

2000 

PRINT 

"CARTE DI CREDITO 

L." ; :V 

* 

SI : 

GOSUB 

14000 

2025 

PRINT 

"ALIMENTARI 

L." ; :V 

« 

S2 : 

GOSUB 

14000 

2050 

PRINT 

"SPESE VARIE 

r 

• 

■ 

c 

« 

S3 : 

GOSUB 

14000 

2073 

PRINT 

"LIBRETTI DI RISPARMIO 

L." ; :V 

* 

S4 : 

GOSUB 

14000 

2080 

S3 » M 

♦ U ♦ TT ♦ S ♦ SI ♦ S2 ♦ 

S3 ♦ S4 





2090 

PRINT 







2100 

GOSUB 

9010 






2110 

IF 00* 

- "ON" THEN INVERSE 






2155 

PRINT 

" SPESE TOTALI DEL MESE 

-1 





2160 

NORMAL 







2163 

PRINT 

" - L. "; 






2165 

V = S5 : 

GOSUB 14000 






2175 

PRINT 







2180 

PR» 0 







2200 

GOTO 6160 






2300 

HOME 







2501 

UT * 1:UB - 24:UL = 1:UU = 38: 

GOSUB 10030 





2510 

PRINT 

: PRINT " OPZIONI:": 

PRINT 





2600 

PRINT 

" 1. MOSTRA SPESE PER PRESTITI" 





2610 

PRINT 

" 2. MOSTRA SPESE GAS tc 

ELETTRICITÀ' 

N 




2620 

PRINT 

" 3. MOSTRA LE SPESE TELEFONICHE" 
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2630 PRINT * 4. LISTA LE SPESE DI TRASPORTO" 

2640 PRINT " 3. LISTA SPESE SU CARTE DI CREO." 

2650 PRINT " 6. LISTA LE SPESE ALIMENTARI" 

2660 PRINT " 7. LISTA LE SPESE VARIE" 

2670 PRINT " 8. LISTA I VERSAMENTI SU LIBRETTI" 

2675 PRINT i PRINT " OPPURE »"i PRINT i PRINT " 9. MOSTRA IL 
RIEPILOGO COMPLETO" 

2678 PRINT "10. MOSTRA SPESE IN PERCENTUALE" 

2680 PRINT "11. METTE LA STAMPANTE IN "|00* 

2682 PRINT "12. RICOMINCIA" 

2683 PRINT "13. FINE" 

2690 VTAB 22: HTAB 1: CALL - 868: INPUT " QUALE SCEGLI? <1-1 

3) " jN 

2695 IF N < 1 OR N > 13 THEN 2690 

2696 TEXT 

2700 IF N « 1 THEN 3100 
2710 IF N * 2 THEN 3300 
2720 IF N ■ 3 THEN 3500 
2730 IF N ■ 4 THEN 3700 
2740 IF N - 5 THEN 3900 
2750 IF N » 6 THEN 4100 
2760 IF N = 7 THEN 4300 
2770 IF N = 8 THEN 4500 
2780 IF N - 9 THEN 1800 
2790 IF N » 10 THEN 6000 

2792 IF N * 11 AND 00* » "OFF" THEN 00* - "ON": GOTO 2300 

2794 IF N * 11 AND 00* - "ON" THEN 00* « "OFF": GOTO 2300 

2810 IF N » 12 THEN RUN 

*0*0 IF N * 13 THEN 4900 

3100 HOME 

3110 UT = 6:UiB * 12:UL = 2:UU - 37: GOSUB 10050: PRINT 

3111 GOSUB 16000 

3120 PRINT " PRESTITI * L.";:V - M: GOSUB 14000 
3130 PRINT 
3135 PR# 0 

3140 PRINT " VUOI CAMBIARLI?"}: GET N* 

3150 IF N* * "S" THEN 3170 
3155 TEXT 
3160 GOTO 2300 

3170 HTAB 1: CALL - 868: INPUT • DAI L'IMPORTO CORRETTO: L.";M 

3175 TEXT 
3180 GOTO 2500 
3300 HOME 

3310 WT = 6:UB = 12:UL » 2:UJUJ » 37: GOSUB 10030: PRINT 

3311 GOSUB 16000 

3320 PRINT " GAS E ELETTRI CICTA' -L.";:V * U: GOSUB 14000 
3330 PRINT 
3335 PR# 0 

3340 PRINT " VUOI CAMBIARE QUESTO?"{: GET N* 

3350 IF N* - "S" THEN 3370 
3355 TEXT 
3360 GOTO 2300 

3370 HTAB 1: CALL - 868: INPUT " DAI L'IMPORTO CORRETTO :L.";U 
3375 TEXT 
3380 GOTO 2500 
3500 HOME 

3510 WT » 6:UB ■ 12:WL - 2:UJU = 37: GOSUB 10050: PRINT 

3511 GOSUB 16000 

3520 PRINT * SPESE TELEFONICHE «L."j:V « TT: GOSUB 14000 
3330 PRINT 
3531 PR» 0 
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3540 PRINT " VUOI CAMBIARE QUESTO?"j: GET N* 

3550 IF N$ = *S' THEN 3570 
3560 TEXT : GOTO 2500 

3570 HTAB ls CALL - 868: INPUT " DAI L'IMPORTO CORRETTO :L|TT 
3580 TEXT : GOTO 2500 

3700 HOME 

3701 GOSUB 16000 

3702 MM* = STR* <MM): IF MM < 10 THEN MM* = "0" ♦ MM$ 

3705 PRINT " SPESE DI TRASPORTO "MM*"/" RIGHT* < STR* <YY), 

2)! GOSUB 9010 

3710 PRINT " DESCR. IMPORTO": PRINT 

3713 IF NT = 0 THEN 13000 
3720 FOR I = 1 TO NT - 1 
3730 PRINT Ij". ";T*<I> j 

3740 PRINT TAB< 32)" "j:V - T1U): GOSUB 14000 
3750 NEXT I 
3765 GOSUB 9010 

3775 PRINT " TOTALE SPESE: L.";:V = S: GOSUB 14000 

3778 PRM 0 

3800 PRINT : PRINT " VUOI CAMBIARE QUALCOSA? ";: GET N*: PRINT 

N* 

3820 IF Ni = "S" GOTO 5000 
3850 GOTO 2500 

3900 HOME 

3901 GOSUB 16000 

3902 MM* = STR* <MM): IF MM < 10 THEN MM* = "0" ♦ MM* 

3905 PRINT " SPESE SU CARTA DI CREDITO “MM*"/" RIGHT* ( STR* 

<YY),2): GOSUB 9010 

3910 PRINT " CONTO N. IMPORTO": PRINT 

3915 IF NI = 0 THEN 13000 
3920 FOR I = 1 TO NI - 1 
3930 PRINT Ij". "|C*<I)J 

3940 PRINT TAB< 32)" "j :V - CI<I>: GOSUB 14000 
3950 NEXT I 
3965 GOSUB 9010 

3975 PRINT " TOTALE SPESE: L.";:V * SI: GOSUB 14000 

3980 PRM 0 

4000 PRINT : PRINT " VUOI CAMBIARE QUALCOSA? GET N*: PRINT 

N* 

4020 IF N* » "S" GOTO 5100 
4050 GOTO 2500 

4100 HOME 

4101 GOSUB 16000 

4102 MM* = STR* <MM): IF MM < 10 THEN MM* * "0" ♦ MM* 

4105 PRINT " ALIMENTARI "MM*"/" RIGHT* < STR* <YY),2): GOSUB 

9010 

4110 PRINT * DATA IMPORTO": PRINT 

4115 IF N2 = 0 THEN 13000 
4120 FOR I = 1 TO N2 - 1 
4130 PRINT Ij". "; 

4135 DTE* = STR* (MM) ♦ Vi IF m < 10 THEN DTE* = "0" ♦ DTE* 

4136 IF D(I) < 10 THEN DTE* = DTE* ♦ "0" 

4137 DTE* = DTE* ♦ STR* <D<D) ♦ "/" ♦ RIGHT* < STR* <YY),2): PRINT 
DTE* ; 

4140 PRINT TAB( 32)" ";:V * G<I): GOSUB 14000 
4150 NEXT I 
4165 GOSUB 9010 

4175 PRINT " TOTALE SPESE: L.";:V - S2: GOSUB 14000 

4176 PRM 0 
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4200 PRINT : PRINT " VUOI CAMBIARE QUALCOSA? ";: GET N*s PRINT 

N * 

4220 IF N$ = "S" GOTO 5200 
4250 GOTO 2500 

4300 HOME 

4301 GOSUB 16000 

4302 MM* = STR* (MM): IF MM < 10 THEN MM* = "0* ♦ MM* 

4305 PRINT " SPESE L'ARI E "MM*"/" RIGHT* < STR* <YY),2): GOSUB 

9010 

4310 PRINT " DESCR. IMPORTO": PRINT 

4315 IF N3 = 0 THEN 13000 
4320 FOR I = 1 TO N3 - 1 
4330 PRINT I. " ;I*<I) ; 

4340 PRINT TAB< 32)" " j :V » I<I): GOSUB 14000 
4350 NEXT I 
4365 GOSUB 9010 

4375 PRINT " TOTALE SPESE: L." ; :V = S3: GOSUB 14000 


4376 

4400 

4420 

4450 

4500 

4501 

4502 
4505 

4510 

4515 

4520 

4530 

4540 

4550 

4565 

4575 

4576 
4600 

4620 

4650 

4900 

5000 

5020 

5025 

5030 

5050 

5075 

5100 

5120 

5125 

5130 

5150 

5175 

5200 

5220 

5225 

5230 

5250 

5275 

5300 


PRM 0 

PRINT : PRINT " VUOI CAMBIARE QUALCOSA? ";: GET N*: PRINT 

N* 

IF N* = "S" GOTO 5300 

GOTO 2500 

HOME 

GOSUB 16000 

MM* = STR* (MM): IF MM < 10 THEN MM* = "0" ♦ MM* 

PRINT " VERS. SU LIBRETTI A RISPARMIO "MM*"/" RIGHT* < STR* 
<YY),2): GOSUB 9010 

PRINT " ACCONTO IMPORTO": PRINT 

IF N4 = 0 THEN 13000 
FOR I = 1 TO N4 - 1 
PRINT I. ";S*<I> j 

PRINT TAB< 32)" "j:V - S<I)I GOSUB 14000 
NEXT I 
GOSUB 9010 

PRINT " TOTALE SPESE: L."::V = S4: GOSUB 14000 

PRM 0 

PRINT : PRINT " VUOI CAMBIARE QUALCOSA? GET N*: PRINT 

N* 


GOTO 5400 


IF N* = "S 
GOTO 2500 
GOTO 8000 

PRINT : INPUT " DAI 

PRINT : PRINT " DAI 

Q = TI<R) 

PRINT : INPUT " DAI 

S = (S - Q) + T1(R> 
GOTO 3700 

PRINT : INPUT " DAI 

PRINT : PRINT " DAI 

< R) 


IL NUMERO: ";R 
LA DESCR. “;R; : 


INPUT ": "jT*(R) 


L'IMPORTO :L.";T1(R) 


IL NUMERO: "}R 
IL NUMERO DEL CONTO 


}R; : INPUT ": ";C* 


Q = C1(R) 

PRINT : INPUT ■ DAI 

51 - (SI - Q) + C1(R) 
GOTO 3900 

PRINT : INPUT " DAI 
PRINT : PRINT " DAI 
Q = G(R) 

PRINT : INPUT " DAI 

52 = <S2 - Q) ♦ G(R) 
GOTO 4100 

PRINT : INPUT " DAI 


L'IMPORTO:L."; CI (R) 

IL NUMERO: " }R 
IL GIORNO DEL MESE: 

L' IMPORTO :L. " ;G(R) 
IL NUMERO: ":R 


INPUT "";D( R) 
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5320 

PRINT : 

PRINT " 

DAI 

LA 

DESCR. "|R j: 

INPUT ": "jI*< R) 

5325 

0 * I< R) 




5330 

PRINT : 

INPUT " 

DAI 

L' 

IMPORT0 :L.": I ( R) 

5350 

S3 = <S3 

- Q> ♦ 

I <R) 




5375 

GOTO 4300 





5400 

PRINT : 

INPUT " 

DAI 

IL 

NUMERO: "|R 


5420 

PRINT : 

PRINT " 

DAI 

IL 

CONTO: "|R; : 

INPUT "";S*< R > 

5425 

Q - S(R> 




5430 

PRINT : 

INPUT " 

DAI 

L' 

IMPORTO:L."|S<R) 


5450 S4 « <S4 - Q> ♦ SCR) 

5475 GOTO 4500 

6000 HOME 

6001 GOSUB 16000 
6010 GOSUB ?010 

6030 N* = “BILANCIO DEL MESE DI" 

6040 GOSUB 501 PRINT SPC< 16 - LEN <M*(MM>> / 2>jM*<MM>|" " jY 

Y 


6050 PRINT i GOSUB 9010 

6052 S5 « M ♦ U ♦ TT ♦ S ♦ SI ♦ S2 ♦ S3 ♦ S4 


6054 PRINT “DESCR. 
6056 PRINT 


X DEL TOTALE" 


6060 

PRINT 

"PRESTITI 

" | :P 

= 

M: 

GOSUB 

15000 

6070 

PRINT 

"GAS & ELETTRICITÀ' 

" | :P 

= 

U: 

GOSUB 

15000 

6080 

PRINT 

n 

"TELEFONO 

" | :P 

= 

TT: 

GOSUB 

1500 

6090 

u 

PRINT 

"SPESE DI TRASPORTO 

" i :P 

* 

S: 

GOSUB 

15000 

6100 

PRINT 

Q 

"CARTE DI CREDITO 

" | :P 

= 

SI : 

GOSUB 

1500 

6110 

PRINT 

Q 

"ALIMENTARI 

" | :P 


S2 : 

GOSUB 

1500 

6120 

PRINT 

Q 

"SPESE VARIE 

" | :P 

= 

83: 

GOSUB 

1500 

6130 

PRINT 

Q 

"LIBRETTI DI RISPARMIO 

" | :P 

= 

S4 : 

GOSUB 

1500 

6140 

PRINT 

: GOSUB 9010 







6145 PRN 0 

6160 VTAB 231 HTAB 3s PRINT “PREMI 'RETURN' PER IL MENU'. "|: CALL 
- 678i GOTO 2500 
8000 TEXT 
80 10 HOME 
9000 END 

9010 IF 00* » "OFF" THEN FOR QR = 1 TO 40 : PRINT NEXT : PRINT 

i RETURN 

9020 CALL - 384: PRINT SPC< 40);: PRINT : CALL - 380 
9030 RETURN 

10000 REM CONTORNO 

10050 VTAB UT: HTAB UL ♦ 1 : INVERSE : PRINT SPC< UU>: VTAB UB: HTAB 
UL ♦ 1 : PRINT SPC< UU>: VTAB UT ♦ 1 : FOR T » UT TO UB - 2: HTAB 
UL ♦ 1 : PRINT “ “;: HTAB UU ♦ UL: PRINT “ “: NEXT : NORMAL : 

POKE 32,UL ♦ 1: POKE 33,UU - 2: POKE 34,UT: POKE 35,UB - 1: 

VTAB UT ♦ 1 : RETURN 
10090 M*<1) - "GENNAI 0" 

10100 M*< 2) - "FEBBRAIO" 

10110 M*< 3) - "MARZO" 

10120 M*< 4) - "APRILE - 
10130 M*<5> - "MAGGIO" 

10140 M*< 6) - "GIUGNO" 

10150 M*< 7) - "LUGLIO" 

10160 M*< 8) - "AGOSTO" 
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10170 M*<9> • "SETTEMBRE" 

10180 M*<10> « "OTTOBRE" 

10190 M*(I1> - "NOVEMBRE" 

10200 M*<12> - "DICEMBRE" 

10210 RETURN 

12000 VTAB 24: HTAB 6: PRINT "RISPONDI CON 'S' 0 'N'"; : HTAB 1 
12010 RETURN 
13000 GOSUB 16000 

13010 PRINT " (NESSUN DATO INTRODOTTO)": GOSUB 9010: VTAB 

9: PRINT " TOTALE SPESE: L.0.00": VTAB 12: HTAB 7: PRINT 

"DAI RETURN PER CONTINUARE."j: CALL - 678: PR# 0: GOTO 2500 

14000 V* = STR* (V): FOR V = 1 TO LEN <V*> : IF MI D* <V*,V,1> = 

"." THEN 14020 
14010 NEXT :VS * V* ♦ ". • 

14020 IF LEN <V»> < V ♦ 2 THEN V* » Vt ♦ "0": GOTO 14020 
14023 IF LEN <V*> < 7 THEN V* - ■ • ♦ V»; GOTO 14023 
14030 PRINT V*: RETURN 

15000 REM CALCOLA LE PERCENTUALI E ST^IPA 
15002 V* = STR* < FN P(P>) 

15004 IF LEFT* ( RIGHT* <V*,2> # 1> < > ".* THEN VS - V* ♦ ".0" 

13006 V* « V* ♦ " X" 

15010 IF LEN <V*> < 6 THEN V* - " • ♦ V*: GOTO 15010 

15020 PRINT V*i RETURN 

16000 REM SETTA LA STAMPANTE 

16010 IF 00» ■ "ON" THEN PR# 0 

16020 IF 00» * "OFF" THEN PR# SLOT 

16030 RETURN 

17000 HOME 

17010 HTAB 11: PRINT "] ISTRUZIONI [" 

17020 POKE 34,2 

17030 VTAB 23 

17040 PRINT "QUESTO PROGRAMMA PERMETTE DI CONTROLLARE": PRINT "I 
N MODO FACILE LE VOSTRE SPESE MENSILI. ": PRINT "DOPO AVERE 
INTRODOTTO I DATI RICHIESTI ": PRINT "POTRETE VEDERE LE SPE 
SE MENSILI IN DET- ": PRINT "TAGLIO 0 RIEPILOGATE. POTRETE 
’ » 

17050 PRINT " ANCHE ": PRINT "RICHIEDERE LE SPESE IN PERCENTUAL 

E PER ": PRINT "IL MESE. TUTTE LE INFORf^ZIONI POSSONO ": PRINT 
•ESSERE STAMPATE. SE LO SLOT E' DIVERSO ": PRINT "DAL N. 1 
CAMBIATE LA LINEA NUMERO 4 

17054 PRINT : PRINT :M* - ■ PREMI RETURN PER CONTINUARE 


17055 

17100 

18000 

18010 


GOSUB 18000 

GOSUB 18000: POKE 34,1: RETURN 

VTAB 23: INVERSE : PRINT M* j: CALL - 678: NORMAL 
RETURN 
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doppio 

Tdump 



Con questo piccolo programma 
potrete avere dei grandi vantaggi. 
Infatti queste poche istruzioni ri¬ 
mediano ad una grossa mancanza 
del DOS del vostro Apple //• la 
mancanza di un comando del tipo 
"type" del CP/M o MS-DOS. 

Dopo avere dato run al program¬ 
ma e letto le spiegazioni il vostro 
DOS disporrà di un nuovo e po¬ 
tentissimo comando la cui sintassi 
è la seguente: 


TDUMP nome-file-text 

Il risultato di questo semplice co¬ 
mando sarà quello di poter vedere 
su video il contenuto di qualsiasi 
file di tipo "TEXT” senza dover 
scrivere dei programmi e senza do¬ 
ver cancellare il contenuto della 
vostra memoria in qualunque mo¬ 
mento!! 


io REM 


DUMP FILES 'TEXT' 

11 GOSUB 1000 

100 HEX* = "A893:54 44 55 4D DO N 9026 :DE BC N BCDFs20 8E FD 20 A 
3 A2 20 8C A6 FO 12 20 ED FD AD 0 CO 10 F3 8D 10 CO 20 1B FD 
C? 91 DO E9 20 FC A2 60 N D7D2G" 

110 FOR I = 1 TO LEN <HEX*): POKE 511 ♦ I, ASC ( MID* <HEX*,I,1 
>) ♦ 128: NEXT : POKE 72,0: CALL - 144 
120 END 
1000 REM 


ISTRUZIONI 

1010 HOME : TEXT 

1020 PRINT "QUESTO PROGRAMMA AGGIUNGE UNA FUNZIONE": PRINT "MOLT 
0 UTILE CHE MANCA NEL DOS 3.3": PRINT "DEL VOSTRO APPLE // " 
: PRINT 

1030 PRINT "CON QUESTO PROGRAMMA INFATTI DISPORRE-": PRINT "TE D 
I UN NUOVO COMANDO CHE VI PER-": PRINT "METTERÀ' DI VEDERE I 
L CONTENUTO DEI": PRINT "FILES DI TIPO 'TEXT'": PRINT 
1040 PRINT "LA SINTASSI E' LA SEGUENTE:": PRINT : PRINT : PRINT 

1050 PRINT " TDUMP 'NOME DEL FILE TEXT' 

1060 PRINT : PRINT : PRINT : PRINT 

1070 PRINT "PREMI <RETURN> PER CONTINUARE";: GET A* 

1080 RETURN 
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Quante volte vi siete lasciati scap¬ 
pare espressioni poco sentili nei 
risuardi del vostro Apple a causa 
di un prosramma che non carica, 
un dischetto difettoso, un crash in¬ 
desiderato, un blackout improvvi¬ 
so che distrusse il lavoro di ore? 
L'Apple è una macchina, d'accor¬ 
do, ma anche un essere freddo, in¬ 
sensibile e fatto di silicio non può 
sopportare tutto all'infinito senza 
mai arrabbiarsi... ma arrabbiarsi ve¬ 
ramente! Vedrete come un saggio 
e maturo computer con anni di 
esperienza alle spalle (del moni¬ 


tor), decano indiscusso della cate- 
soria, possa perdere il proprio 
soft-self-control fino a reasire co¬ 
me il più capriccioso dei bambini 
viziati. 

Se conoscete qualche vostro ami¬ 
co simpatizzante delle teorie del 
famoso dottor Spock, chiedetesli 
di provare a convincere Apple a 
"fare il bravo” e a comportarsi be¬ 
ne. 

Nel frattempo potrete scommettere 
insieme al resto della compagnia su 
chi dei due si scalderà - in tutti i 
sensi - di più ... digitare per credere. 


10 REM ###*#****#*#****##*#**##**#* 

20 REM INTELLIGENZA ARTIFICIALE 
30 REM *•*»••»•»«***»******••***«** 

40 FOR I - 1 TO 8: READ OSCI): NEXT 

45 DATA LIST.CATALOG,PERCHE'.PERCHE'.ABBRACCIO.RUN,HOME,NEW 
50 FOR I ■ 1 TO 8: READ A*(I>i NEXT 

55 DATA FAMMI IL SOLLETI CO,VOGLI0 USCI RE.VORREI UN CEROTTO,POS 
SO AVERE UNA FOCACCINA?.NON ROMPERE,HO ROVESCIATO IL LATTE,C 
'E' UN MOSTRO NELLA MIA STANZA,HAI UN BUON PROFUMO 
60 FOR I - 1 TO 8: READ B*<I>| NEXT 

65 DATA VESTIRMI.GIOCARE AL DOTTORE.MANGIARE LA MINESTRA,GUAR 
DARE PIPPO BAUDO,ANDARE ALL'ASILO,LAVARMI I PIEDI,FARE LA PU 
NTURA,ANDARE A DORMIRE 
100 REM # INPUT DA TASTIERA # 

110 GOSUB 1000.-C » 0 
120 FOR I * 1 TO 8 

130 IF LEFT* < CS,3) - LEFT* <Q*<I>,3> THEN C - Iti =8 
140 NEXT 
150 REM 

160 IF C > 0 THEN 200 

170 PRINT " NON VOGLIO ";B*<R> 

180 GOTO 100 
200 REM 

210 ON C GOTO 400,500,600,700,800 
220 PRINT A*<R) 

230 ON R GOTO 250,275 
240 GOTO 100 

250 A2* = "RIPETI": GOTO 300 
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275 REM 

285 A2* = "VOGLIO TORNARE DENTRO" 

300 Al* = A*< R):OLDR = R 
310 GOSUB 1000 
320 IF R * OLDR THEN 100 
330 PRINT A2* 

340 GOSUB 1000 

350 IF R = OLDR THEN 100 

360 PRINT Al* 

370 GOTO 310 
400 REM « LIST * 

410 FOR I = 1 TO 8 
420 PRINT SPC< 3);A*(I) 

430 NEXT 

440 GOTO 100 

500 REM * CATALOG * 

510 PRINT : PRINT "DISC VOLUME 002" 

520 PRINT 

530 FOR I * 1 TO 8 

540 PRINT "*A 00";R;" NON VOGLIO ";B*(I> 

550 NEXT 

560 GOTO 100 

600 REM * PERCHE'? » 

610 PRINT "PERCHE' NO!!!" 

620 GOTO 100 

700 REM * PERCHE' # 

710 PRINT "PERCHE' COSA?!?" 

720 GOTO 100 

800 REM * ABBRACCIO # 

810 PRINT "BUONA NOTTE, CICCI." 

830 END 

1000 REM * INPUT * 

1010 PRINT : INPUT "]";C* 

1020 IF LEN <C*> = 0 THEN PRINT "NO!": GOTO 1000 
1030 R = INT << PEEK (78) / 32) ♦ 1) 

1040 RETURN 


Paperstar 


Stavolta Papersoft vi farà vedere le 
stelle. 

Nella nostra società sempre più 
moderna si è persa l'abitudine di 
andare nelle calde serate d'estate 
in un prato e sdraiarsi ad osservare 
il cielo con tutte le sue stelle. 



Ebbene, vi parrà strano , ma grazie 
ad una fredda macchina quale può 
essere il vostro TIriscoprirete que¬ 
sto gusto. 

Si sono scelte tre costellazioni tra le 
più visibili: Orsa ; Pegaso e Orione. 
Di queste tre vi verranno fornite 
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tutte le informazioni necessarie alla 
loro identificazione visiva. 

100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
1 50 REM 
170 REM 

1 80 CALL CLEAR 
190 CALL SCREEN(8) 

200 G=1 

210 CALL COLOR(G , 5,8 ) 

220 G=G+1 

230 IF G>12 THEN 250 

240 GOTO 210 

250 GOSUB 570 

260 GOSUB 1690 

270 CALL CLEAR 

280 CALL SCREEN(5) 

290 CALL COLOR(1,16,1) 

300 CALL COLOR(2,11 ,1 ) 

310 CALL COLOR(4,11,1) 

320 CALL COLOR(9,16,1) 

330 CALL COLOR(10,9,1 ) 

340 CALL COLOR(11,11,1) 

350 A$="995A3CE7E73C5A99" 
360 B$ = "1 05428D628541 " 

370 CALL CHAR(100,A$) 

380 CALL CHAR(108,A$) 

390 CALL CHAR(116,B$) 

400 GOSUB 930 
410 GOSUB 1690 
420 GOSUB 1100 
430 GOSUB 1690 
440 GOSUB 1390 
450 GOSUB 1690 
460 GOSUB 2690 
470 END 
480 REM 
490 REM 
500 REM 
510 REM 
520 REM 
530 REM 
540 REM 
550 REM 
560 REM 

570 PH$="COSTELLAZIONI" 

580 X0=10 


È tutto: vi lascio alle vostre osser¬ 
vazioni elettronico-stellari. 
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590 Y0 = 1 

600 GOSUB 1540 

610 PH$ ="************ 

620 XO = 11 
630 Y0=3 
640 GOSUB 1540 
650 GOSUB 2410 

660 PH$="Sulla sfera celeste,le stelle sembrano conse 

rvare, 1'una per rapporto verso 1'altra,delle posizion 
i fis-se." 

670 X0 = 4 
680 Y0 = 5 
690 GOSUB 1540 

700 PH$*"Esse disegnano a volte del-le figure notevoli: 1 
e ""COSTELLAZIONI"" di cui il nome rappresenta, pi 

u'o meno, la forma." 

710 X0 = 4 
720 Y0=10 
730 GOSUB 1540 

740 PH$ s "Noi andiamo a vedere tre costellazioni: ORION 
E, le ORSE e PEGASO." 

750 X0*4 

760 Y0 = 16 

770 GOSUB 1540 

780 GOSUB 2570 

790 PH$="PER CONTINUARE" 

800 X0=9 

810 Y0=22 

820 GOSUB 1540 

830 PH$="PREMI UN TASTO QUALSIASI-->" 

840 X0=2 

850 Y0*24 

860 GOSUB 1540 

870 RETURN 

880 REM 

890 REM 

900 REM 

910 DATA 2,14,42,3,25,42,5,9,108,5,25,42,6,16,116,7,25,42 

,13,14,116,14,13,116,15,12,116,22,18,100 

920 DATA 23,10,116,18,13,42,19,13,42,20,13,42 

930 CALL CLEAR 

940 PH$="ORIONE" 

950 X0 = 23 

960 Y0=20 

970 GOSUB 1540 

980 NE=14 

990 RESTORE 910 

1000 GOSUB 1770 

1010 FOR T=1 TO 500 

1020 NEXT T 

1030 GOSUB 1950 
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1040 RETURN 
1050 REM 
1060 REM 
1070 REM 

1080 DATA 2,5,116,6,7,116,10,7,116,15,7/42,18,4,116,23,11 
,100,24,7,116 

1090 DATA 7,20,116,7,24,42,9,20,116,9,24,42,11,26,42,15,2 

9,42,19,30,43 

1100 CALL CLEAR 

1110 RESTORE 1080 

1120 PH$=”ORSA MAGGIORE” 

1130 X0=14 

1140 Y0=23 

1150 GOSUB 1 540 

1160 NE=7 

1170 GOSUB 1 770 

1180 PH$=”ORSA MINORE” 

1190 X0=17 

1200 Y0 = 4 

1210 GOSUB 1540 

1220 NE=6 

1230 GOSUB 1770 

1240 PH$="POLARE ->" 

1250 X0=18 

1260 Y0=19 

1270 GOSUB 1540 

1280 NE-1 

1290 GOSUB 1770 

1300 FOR T=1 TO 500 

1310 NEXT T 

1320 GOSUB 2120 

1330 RETURN 

1340 REM 

1350 REM 

1360 REM 

1370 DATA 2,3,116,7,5,116,10,8,116,11,21,42,12,12,100,13, 
18,116 

1380 DATA 14,20,42,15,21,42,18,11,116,18,18,116,20,21,42, 

21,30,116,22,23,42,24,27,42 

1390 CALL CLEAR 

1400 RESTORE 1370 

1410 PH$=”PEGASO” 

1420 X0=21 
1430 Y0=6 
1440 GOSUB 1540 
1450 NE=14 
1460 GOSUB 1770 
1470 FOR T=1 TO 500 
1480 NEXT T 
1490 GOSUB 2280 
1500 RETURN 
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1510 REM 
1 520 REM 
1530 REM 
1540 L=LEN(PH$) 

1550 1=1 
1560 X=X0+I 
1570 N = INT(1/28) 

1580 Y=Y0+N 

1 590 IF X<30 THEN 1610 
1600 X=4+I-28*N 

1610 CALL HCHAR(Y,X,ASC(SEG$(PH$,I,1))) 

1620 1=1+1 

1630 IF I>L THEN 1650 

1640 GOTO 1560 

1650 RETURN 

1660 REM 

1670 REM 

1680 REM 

1690 CALL HCHAR(24,30,30) 

1700 CALL KEY(0,TH,ET) 

1710 CALL HCHAR(24,30,32) 

1720 IF ET=0 THEN 1690 

1730 RETURN 

1740 REM 

1750 REM 

1 760 REM 

1770 1=1 

1780 READ Y,X ,CH 
1790 CALL HCHAR(Y,X ,CH) 

1800 1=1+1 

1810 IF I>NE THEN 1830 

1820 GOTO 1780 

1830 RETURN 

1840 REM 

1850 REM 

1 860 REM 

1870 DATA 349,440,4,262,392,12,220,523,4,262,440,4,294,34 

9,4,294,466,4,392,466,4,349,440,2,330,392,2 

1880 DATA 349,440,8,349,349,4,294,698,4,294,698,2,262,659 

,2,349,587,2,330,523,2,294,494,4 

1890 DATA 392,494,4,392,659,4,440,523,6,330,523,2,349,523 
,2,392,494,2,262,523,12,262,392,6 

1900 DATA 262,392,2,349,440,2,392,466,2,349,440,8,330,392 
,2,294,349,2,330,392,8,440,523,4 

1910 DATA 466,587,6,440,523,2,392,466,2,466,587,2,440,523 
,4,349,523,4,294,466,2,294,440,2,392,466,4 

1920 DATA 330,523,2,330,466,2,262,440,2,262,392,2,349,440 
4 175 349 4 

1930 DATA 440,523,4,466,587,6,440,587,2,392,659,2,349,698 
,2,523,659,4,330,523,4,349,440,4,294,349,4 

1940 DATA 392,466,6,349,440,1,330,392,1,349,440,4,349,392 
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,4,330,392,4,175,349,12 
1950 RESTORE 1870 
1960 FOR 1=1 TO 64 
1970 READ Fi,F2,D 
1980 D=D*150 

1990 IF I>53 THEN 2000 ELSE 2010 
2000 V=I-54 

2010 CALL SOUND(D,Fl,V,F2,V) 

2020 NEXT I 
2030 RETURN 
2040 REM 
2050 REM 
2060 REM 

2070 DATA 392,2,415,2,392,2,523,9,392,3,349,2,392,2,349,2 

,523,6,349,6,392,9,349,3,349,2,311,2,294,2 

2080 DATA 311,18,392,2,415,2,392,2,622,9,392,3,349,2,392, 

2,349,2,587,9,523,3,466,9,415,3,415,2,392,2 

2090 DATA 349,2,392,18,392,6,494,1.5,622,9,587,3,523,4.5, 

392,.5,311,9,262,3,415,2,392,2,415,2 

2100 DATA 523,9,415,3,392,18,349,2,330,2,349,2,415,9,349, 

3,311,18,392,4.5,494,1.5,622,9,587,3,523,4.5 

2110 DATA 392,1.5,330,9,262,3,440,2,415,2,440,2,523,9,440 

,3,392,18,587,2,554,2,587,2,698,9.5,494,3,523,24 

2120 RESTORE 2070 

2130 FOR 1=1 TO 72 

21 40 READ Fi ,D 

2150 D=D*100 

2160 F2 = Fl*3 

2170 F3=Fl/2 

2180 CALL SOUND(D,Fl,2,F2,8,F3,4) 

2190 NEXT I 
2200 RETURN 
2210 REM 

2220 DATA 440,5,494,1,440,4,370,1,587,1,554,4,494,1,554,1 

,587,4,554,1,494,1,440,5,494,1,440,4,370,1 

2230 DATA 587,1,554,4,494,1,554,1,587,6,587,4,554,1,494,1 

,440,4,390,1,370,1,330,4,370,1,392,1,370,3 

2240 DATA 370,3,587,4,554,1,494,1,440,4,392,1,370,1,330,4 

,370,1,330,1,440,5,330,1,349,4,330,1,294,1 

2250 DATA 415,4,415,1,440,1,494,4,554,1,494,1,440,6,659,4 
,554,1,440,1,349,4,330,1,294,1,494,4,554,1 

2260 DATA 494,1,440,6,440,5,494,1,440,4,370,1,587,1,554,4 
,494,1,554,1,587,3,587,3 

2270 DATA 587,4,554,1,494,1,440,4,370,1,294,1,277,1,494,1 

,440,1,392,1,370,1,330,1,294,8 

2280 RESTORE 2220 

2290 FOR 1=1 TO 85 

2300 READ Fi,D 

2310 D=D*200 

2320 F2 = Fl*3 

2330 F3=Fl/2 
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2340 CALL SOUND(D, Fi,2,F2,8,F3,4) 

2350 NEXT I 
2360 RETURN 
2370 REM 
2380 REM 
2390 REM 

2400 DATA 330,1,440,3,494,1,440,1,494,1,554,1,440,1,659,1 

,554,3,494,1,440,1,494,1.3,440,8 

2410 RESTORE 2400 

2420 1*1 

2430 READ Fi,D 

2440 D=D*180 

2450 F2 = Fl* 3 

2460 F3=Fl/2 

2470 CALL SOUND(D,Fi,2,F2,6,F3,15) 

2480 1*1+1 

2490 IF I>13 THEN 2510 

2500 GOTO 2430 

2510 RETURN 

2520 REM 

2530 REM 

2540 REM 

2550 DATA 523,1,659,1,392,1,523,1,330,1,392,1,262,2,262,1 
,294,1,330,1,349,1,330,2,294,2 

2560 DATA 330,1,262,1,392,1,330,1,523,1,392,1,659,2,659,1 

,587,1,523,1,494,1,587,2,523,8 

2570 RESTORE 2550 

2580 FOR 1*1 TO 26 

2590 READ Fi,D 

2600 D=D*220 

2610 F2*F1*3 

2620 F3*Fl/2 

2630 CALL SOUND(D,Fi,2,F2,8,F3,8) 

2640 NEXT I 

2650 RETURN 

2660 REM 

2670 REM 

2680 REM 

2690 CALL CLEAR 

2700 PH$*"ARRIVEDERCI" 

2710 X0-11 
2720 Y0*12 
2730 GOSUB 2540 
2740 V*0 

2750 CALL SOUND(100,131,V,392,V) 

2760 CALL SOUND(-100,165,V,494,V) 

2770 V*V+1 

2780 IF V>30 THEN 2800 
2790 GOTO 2750 
2800 CALL CLEAR 
2810 RETURN 
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Le " potenze" c/e/ titolo non hanno 
nulla a che vedere con le nazioni 
più o meno imperialiste a cui di so¬ 
lito ci si riferisce. 

Quelle di questo programma, sono 
infatti molto meno aggressive e più 
familiari: si tratta delle vecchie for- 
mulette imparate a scuola, quelle 
del "due elevato alla n". 

Quante sudate ci siamo fatti un po' 
tutti quanti su queste semplici ma 
laboriose nozioni, tanto da dire 
*Basta: ora col computer non 
dovrò più fare calcoli inutili e cer¬ 


ve! lotici r. 

Di fatto, però, se provate su qualsia¬ 
si elaboratore a scrivere 2* vi verrà 
fornita una risposta del tipo 
1.84467x10' 9 ; e gli altri decimali?... 
Proprio a questo prò viene incon¬ 
tro Papersoft con questo semplice 
listato in Tl-Basic, unica richiesta un 
po' di pazienza nella digitazione 
delle 56 righe di programma. 

P S. Se volete sapere la risposta 
che questo programma darà al 
quesito precedente, è la seguente: 
18446744073709551616. 


100 REM 
110 REM 
120 REM 
130 REM 
1 4 0 REM 
150 REM 

1 70 CALL CLEAR 

180 INPUT "BASE:DEVE ESSERE >0 E <10*10":AA 
190 PRINT 

200 IF (AA< = 0) + (AA< >INT(AA)) + (AA> = 10*10)THEN 180 
210 INPUT "ESPONENTE:DEVE ESSERE >0 ":BB 
220 PRINT 

230 IF (BB<0) + (BBOINT(BB) ) THEN 210 
240 IF LOG(AA~BB)>=588*LOG(10)THEN 590 
250 DIM A(600) 

260 CALL CLEAR 
270 CALL SCREEN(6) 

280 FOR 1*1 TO 8 
290 CALL COLOR(1,16,1) 

300 NEXT I 

310 NOM*LEN(STR$(AA)) 

320 FOR 1*1 TO NOM 

330 A(I)=VAL(SEG$(STR$(AA),NOM+1-I,l)) 

340 NEXT I 
350 RET=0 
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360 FOR 1 = 2 TO BB 
370 FOR J=1 TO NOM 
380 A(J)=A(J)*AA+RET 
390 RET=INT(A(J)/I0) 

400 A(J)=A(J)-10*RET 
410 NEXT J 

420 IF RET>0 THEN 450 
430 NEXT I 
440 GOTO 500 
450 C = INT(RET/10) 

460 NOM=NOM+l 
470 A(NOM)=RET-10*C 
480 RET=C 
490 GOTO 420 

500 PRINT AA;"~";BB;"= "; 

510 FOR I=NOM TO 1 STEP -1 
520 PRINT STR$(A(I)); 

530 NEXT I 
540 PRINT 

550 INPUT "ANCORA? (S/N)":R$ 

560 IF R$="S" THEN 170 
570 CALL CLEAR 
580 STOP 

590 PRINT AA;"~";BB;"TROPPO GRANDE" 
600 PRINT 
610 PRINT 
620 GOTO 180 


Arianna 


Siete intrappolati nella parte meri¬ 
dionale di un intricato labirinto e 
dovete cercare di raggiungere 
l'uscita posta nella parte opposta a 
nord. Lo schermo vi presenta una 
visione tridimensionale del labirinto 
in cui vagate e vedrete delle porte 
aperte che dovrete passare. 

Per muovervi dovete dapprima 
scegliere la direzione in cui andare 
digitando uno dei tasti corrispon¬ 


denti ai punti cardinali N.S.E.O, 
quindi premere il tasto F per fare 
un passo in avanti e cambiare stan¬ 
za. Una piccola bussola posta nel¬ 
la parte bassa dello schermo vi tie¬ 
ne informati sulla direzione in cui 
state andando. In alto >, invece , un 
cronometro scandisce inesorabil¬ 
mente il tempo a disposizione , ter¬ 
minato il quale termina la partita. 

Il gioco prevede inoltre numerosi 
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livelli di difficoltà che controllano 

nel tempo consentito , se non si ha 

le dimensioni del labirinto. Atten¬ 

un senso dell'orientamento molto 

zione perché sia ad un livello su¬ 
periore al 15 è molto difficile uscire 

forte. 



10 0 

REM 1 4 ♦: # 4 4 1 4 1 4 

5 2 0 

I FD*8THEN510 

110 

R’ E M 4 * 

t> 3 0 

I F P -= P 1 T H E N 5 i 0 

12 0 

R E M 4 ARIA N NA 1 

5-4 0 

P 1 = P 


13 0 

R E I I 4 4 

5 5 0 

FORJ*1TORI 

1 -4 O 

R E ri U* 1 4 4 4 

5 3 O 

IFD*1THENC«=C-1: I 

1 55 0 

R E M 

FC<2THENC»2 


13 0 

C L E. 

5 T O 

I FD = 2THENR*R + 1 : I 

ITO 

O N I N T E R O AL =“200 3 O 

F R — S K 1 T H E N 3 2 0 

SUB X 32 O 

5 3 0 

I F ! • — 3 T H E N C — C 1 : I 

13 0 

X - R N 1» < -TIME > 

F C > 1 

9THENC-1 

3 

1 3 O 

COLOR 15,1 

5 3 0 

M < c , r > = i 


2 0 O 

L O c A T E ± 5,1 

3 0 0 

NEXTJ 


2 10 

I U— 1 O 0 

3 1 O 

G O T O 5 O O 


2 2 0 

O P E N •• e R R ” H S 1 

3 2 O 

FORJ«lTO 

2 O 

2 3 0 

DIMM<22,42) 

3 3 0 

M < Or , 1 > » 3 

: M < J , S K > 

2 4 ù 

L. O C A T E 2 ,12 

— 3 s M 

C J , 8K + 1 > 

= 0 

2 5 0 

INPUT " L i ve 1 lo cl i 

*- *1 0 

F C« R K “ITO 

3 K 

d ì -t- 

+ i o o 1 t- a x < ? • 4 0 > " 

e, 5 O 

M < 1 , K > = 0 

: M < 2 O , K > 

; SK 


- O : M 

< L 3 , K > = O 


2 3 0 

I F S I < 5 O R S K > -4 O THE 

3 3 0 

i fruì» < i > 

< - 3 T H E N 3 

N C L S 

: G O T O 2 A O 

3 O 



2 T 0 

L O C A T E 2 , i. 3 P R I NT 

3 T 0 

I F M < J , K > 

<>0THEN3 


" A T TEMI-'ER E . . 
280 G O T CMS Ci 

2 *5* 0 RFM DIS 

I 

3 0 0 I»Rri M '• B M *3 

R80P8O L 3 *3 U 3 O 
310 RETURN 

3 2 0 RE fi 

3 3 0 P R A U 


e «3 n o r i u R 


0 


•3 O 


C X 2 


3 0, *3 0.. C 
O I- 3 0 I. I' 0 


L 2 5 U 3 O ’• 

3 *4 0 RETURN 

35ó REM 

3 3 0 I> R A M "BN 1 T O 
C12E50 I' L 8 0 H 5 O Li 3 O 
370 RUTDRN 

330 REM 


3 Ó ; 


3 Ù 

•3 3 0 |-1 C J j K > = 2 

3 3 O N E X T K 

T O »_i N E X T .J 

T X O COLOR 1 2 , ± , ± 

T .2 O S C R E E N 2 

T 3 O < L S 

V -4 0 I N T E R U A L O N 

T *5 0 K«Sl< C-15 - D R “ X 

V 3 0 COLOR 14 : O N P R G O T 

"780 , 840,300,330 

V V 0 rem N O R p 

T 3 O I F M < c . R - X > > 0 T H E N 
G O SIJB73CELSE6OSUB300 

V '=• n 1 F ri < C ± , R > > O T H E N 
• ■ O 3 U B420EI. SEGOSUB33G 


3 3 0 

P R A 

W •• B r-1 3 

0 

* 

t> O 

> 

C 

3 

O 

0 

r i- m 

< 

C - 1 , R 


> 0 T H E M 

12H50H 

3 0 E 5 0 U 3 

O 

• • 




• • 

O AU B45ÙEL SEGO 

S U B 3 3 0 

*4 0 0 

R F T 

U R N 






3 

1 

0 

P R E 


E T < 3 -4 

* 

1 3 0 > : P 

4 1Ù 

R E M 







R 

I 

NT# t , 

Il 

> > > > > 

> 

N O R P *• 

420 

P R A 

li " B M 1 T 

O 

> 

3 O 

* 

c 

c 

■ • 

*- 

G 

G O T O 1 O 1 O 



1 2 E 5 0 P 1 

3 O H 2 O U 3 

0 

G 1 Ó P 

? 

A 

>! 

o 

R l M 


A |j T.» 



0 H 2 0 U 3 O 

*1 






3 

<4 

0 

r k ri 

< 

C , R X 

> 

> Ó THE N 

<4 3 0 

R E T 

1.1 R N 






A 

O 

A U 15 •: 3 

» i 

E L SEGO 

S U B 3 O 0 

<4 <4 0 

R E M 







3 

A 

0 

1 F M 

c 

C - 1 , R 

> 

> O T H E N 

•4 5 0 

P R A 

W •• B M 3 O 

* 

3 

0 ; 

C 1 

0» 

• li 

S LI B -1 2 

0 

E L SE G 

O 

S U B 3 3 O 

2H50D18 

0E20U90F 

1 0 P T Ò 

3 

3 

0 

I F M 

c 

C ♦- 1 , R 

> 

> 0 T H E N 

E 2 0 U 3 G " 







3 

O G U 

B *4 5 

c» 

ÉLSE G 

O S U B 3 3 0 

O 

R E T 

u r n 






3 

*-■ 

• 

0 

P R F 

3 

ET C 8 *4 


1 3 0 > : P 

-1 V O 

R E M 

C R E A 2 

I 

ONE 


L 

R 

I 

n r 

** 1 , 

• • 

> > > > > 

> 

S UP" 

H 8 I 

R l N T 

O 






3 3 

0 

G » « T 

O 

:1 O 1 O 



<4 ir l i 

C — I 

N T < R N P < 

1 

> 

4 2 

3 

> 

3 

3 

O 

r f r-t 


EST 



+ .? 







0 

0 

i f r-i 

c 

O + 1 , R 

> 

> Ò T H E N 

•4 3 O 

R “ 1 







G u 

3 U 

B 3 i 

O E L S E G 

O 

S U B 3 0 0 

5 O • j 

R 1 “ 

I N T C R N P 

< 

1 

> 4 

<4 

> 

3 

1 

0 

i f m 

* 

C , R ♦ 1 

> 

> 0 T H E N 

1 





G »J 

= U 

B -4 2 

O E l S E G 

o 

3 U B 3 3 0 

5 1 O 

P “ I 

N r < R N p < 

1 

> 

4 3 

> 


3 


0 

i r r-i 

< 

C , R - X 

> 

> O T H E N 

L 






G O 

S U 

B -1 5 

OELSE6 

o 

SUB39Q 


23 








1. v3 o ;• 
e s t 


• >u THEIJ 


330 r h r: i t < o 4 
r r n tu •■>>>> 

3 4 0 c» o ro 1 0 ± o 

9^0 p r ri o v e s r 

3 0 IFfKO -1 , R 

0 E L S E liOS U B 3 0 U 
C , R - 1 > >li THEM 
OELSE6ÙSUB360 

<" O , R + :l > > O T H E N 
0 E L SE603UE39O 
SET <84 , 1 S 0 > : P 
">>>>>> OVEST 


GOSUB33 
3 ?O IFM 

6 O S U B 4 i.' 

93 0 I FM 

G O S u B -4 *5 
3 3 0 P R E 
RINTU, " 

10 0 0 re: m 
T I E R rt 


I F k > = 2 T H t; N 1 3 
I N T E R V A L O » r P 
J ' R E E M 0 
R E M V IT V L' R 1 M 
C O L. O P 15 


LETTURA Irti:. 


1 0 1 U 
10 2O 
10 3 0 
10-40 


n * 

I F 
B E 
I F 


I N K E V * 

A * = •• » THE N 1O10 
r. p 

» - •• n •• r h e n i> r - 


1 : QOTOl 1*4 0 
10 5 0 I F m * = 

2 : G O T O L J 4 0 
10 6 0 I F 

3 : 6 0TOL 


S 


T H E N I> R - 


Af»"E"THENBR= 
1 *4 O 


117.0 I F k > = 2 T H fc: N 12 6 0 
113 0 
1 1 3 O 
12 0 0 
12 10 
5 

12 2 0 P L M V " T 2 4 O Q'*4 CI' E F 
AB05CBEFAB" 

12 3 0 LOCATE 1 ? , 3 : PRINT 
•' C O 11 P L l M ENTI ! ** 

t. O C m T E 4 , 1 0 P R I N 
USCITO IN SOLE 
M r 1 O S S E . " 

GO T01280 
C N = C N + 1 
6 OT 0760 
LÙCATE1,2 2 : 
CLOSE 
E N1> 

r e ri r e n p o 

I V = I V - 1 

P RESE T (168, 1O > : 

J PPIHTU,CHRI 
, OHR r < 219) 



1 O T 0 

I F A # 8 " O " THEN1'R = 

13 4 0 

PRESE T < 72,10 

> : C 

■4 : GOTO-1 140 


O L OR 

1 4 


10 3 0 

IFAtO" F" T H E N 1 0 

13 5 0 

P R I N T # 1 , •• 

T E M 

1 0 



P O 

•* , I V 


10 3 0 

R t 1-1 ri U O E 1 

n a v 

13 6 0 

1 F 1 V > O T H E N 1 4 

6 0 

A N T I 



1 3 T O 

L II TEMPO S C h D II 

110 0 

i F I> R * 1 THENk 

- R - 1 

I O 



: I F M ( 

C,R)»0THENR 

- R 1 

1 3 3 O 

F - L . A V " T 2 4 0 O 5 G F E I> 

: 6 O T O 1 0 1 0 


C t : A O 4 G F E 1* c L-i H •• 


1110 

IFI>R 8 2THE N P 

* R > 1 

13 3 O 

F ORDE = 1TOIQG 

: N E 

: I F M < 

C , R > = O T H E N R 

» R - 1 

X T I* E 



: G O T O 1 O 1 0 


1 4 0 0 

S O R E E N 0 


112 0 

I f r* R • 3 T H E N C 

- C *- 1 

14 10 

O L S 


: I F M C 

c , r< > — 0 t h t~ ri c 

= 0-1 

14 2 0 

C OLÙR 15,4,5 


: GOTO 

1 o :L 0 


1 4 O 

LOCMTES,9 PR 

I N T 

113 0 

I F I* R = 4 T H E N vi 

— 0—1 

“ E ' T 

E R ri I N A ro IL 

T E M 

: I F M < 

C , R • - 0 T H E N C 

= 0-^1 

P O H 

TUA 

I> I 

: G O T O 

:1 0 10. 


S F O S I 

ZIONE !" 


114 0 

l_. ‘3 


1 4 4 Ò 

LO C ATEI,22 


115 0 

O OL.OR 1 2 , 1 .. 

1 

14 5 0 

GO T 0 12 3 0 


1 1 6 0 

•_.op f: e: r 4 £ 


14 6 0 

R E T LI R N 




MSX 1 

Zombi 



Siete capitati in una isola maledetta 
abitata da poco socievoli Zombi e 
costellata da pericolosi vulcani in 
eruzione. 


Il solo contatto con uno di questi 
esseri vi porterebbe a una morte 
sicura e inoltre dovrete fare atten¬ 
zione a non cadere in una delle 
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Dal n° 39 i nostri affezionati lettori troveranno in edi¬ 
cola solo due edizioni di PaperSoft. 

La prima dedicata interamente al Commodore 64 la 
seconda costituita da un’edizione mista che propor¬ 
rà prosrammi per il Comodore Vie 20, CI 6 e Plus 4, 
Sinclair e Texas TI99/A4. 

Gli abbonati all'edizione Sinclair riceveranno, fino 
alla fine dell’anno, l’edizione mista che conterrà i 
prosrammi per il loro computer. 

Gli utenti dei computer Commodore che volessero 
modificare i termini dell’abbonamento sono presati 
di compilare e spedire a: 

J soft - Ufficio Abbonamenti - V ie Restelli, 5 - 
20124 Milano 


K 

Cognome_ Nome- 

Indirizzo_ Città_ CAP- 

Desidero che per il mio abbonamento a PaperSoft edizione Com¬ 
modore sia inviato PaperSoft: 

□ edizione per C64 □ edizione per VIC20, C16/Plus4 

barrare la casella che interessa. 

Compilare ed inviare in busta chiusa a: 

J. SOff viale Restelli, 5 - 20124 Milano 

K 











bocche vulcaniche. All'inizio del 
gioco potete decidere quanti Zom¬ 
bi e quanti vulcani devono essere 
presenti sull'isola (le prime volte è 
meglio stare un poco alti con i vul¬ 
cani e bassi con gli Zombi). Quindi 
inizia la sfida: utilizzando i tasti 
cursore , ne premerete due con¬ 
temporaneamente per muovervi 
diagonalmente; vi muoverete nel¬ 


a. 0 

REM * 4- 4 4 » 4 * 4 4- 


2 0 

R E f-1 * Z • i M B I 4 


3 O 

REM 4- *- 4 « » 4- 4- 4 4 


* 0 

R E M 


5 0 

K E V O F F 


6 0 

SCREEM0 


? 0 

COLOR 1 , 11,11 


8 O 

CLS 


8 0 

R E M 


10 0 

REM INPUT Z O M E- 1 

E VULCANI 


110 

REM 


1 2 0 

INPUT" O i.i *h N T I 

Z O M 

B I 

< 1 - 1 & > " ; N 


13 0 

PRINT 1 R I N T 


1-4 0 

I F N < 1 ù R M > 1 0 T H l N 1 

2 0 



15 0 

INPUT" C« U ó N T I 

V LI L 

CAN 

I < 1-10 ;■ « ; V 


18 0 

I F U <1ORU>10THEN1 

5 0 



1 T 0 

SCREEN2,2 


1 8 0 

COLOR 6,11,11 


18 0 

C L. 8 


2 0 0 

R E M 


2 10 

REM HSE6NI I 

SOL 

0 



2 2 0 

R E M 


2 3 0 

FORX-3U I O 2 3 O S 

r e p 

2 0 



2-4 0 

L I N E < X , .200 ) - < 

x , o 

2 5 0 

NEXTX 


2 8 0 

FORV*=0T 0 1808 T EP2 

0 



270 

LINE<30, V L 1 - 4 

> - < 

2 3 0 

, V * X - * > 


2 8 0 

N E X T V 


2 8 0 

T - R N I> < - T IME) 


3 0 0 

FORI-ITO V 


3 10 

K < I > = I N T < RND < 

i > * 

1 O > 

*20+33 


3 2 0 

J < I .> = I N T < R N 1> < 

i :• 4. 

7 ) *28 + 3 


3 3 0 

IFPOINT < K < I > , 

■j < i 

> > * 

8THEN310 


3*0 

P A I N T < K < I > , J < 

i > -> 

- *=> * 

8 


3 5 0 

N E X T 


3 8 0 

GOSUB13V0 



l'isola, cercando, da una parte, di 
evitare il contatto con i mostri e i 
vulcani e dall'altra di favorire lo 
scontro fra gli Zombi il cui contat¬ 
to, anche per loro, risulta fatale co¬ 
me il cadere nei crateri infuocati. 
L'osservazione del movimento de¬ 
gli Zombi, che all'inizio vi sembre¬ 
rà casuale, vi permetterà di attuare 
delle strategie per vincere la sfida. 


3 ? 0 R » R N I* < - T INE) 

380 REM 

38© REM POSIZIONE SP 

R I T E S 

* & O R r. M 


•4 L 0 


X 

*■; *= i 

N T < R N I> < 

1 > * 1 0 

> ♦ 2 

o -+- 

3 3 





* 2 O 


V 

“i - I 

N T < R N J> < 

1 > * T 

> 

I2S + 

3 






* 3 O 


I 

f r o 

I N T < X , 

vro 


8 

THE N -4 

1 o 





•4*0 


P 

8 E T 

• X X , V > 

, 8 



‘I 5 O 


P * 1 8 

1 R 1 T E 0 , 

< :< x 

* 

V 

-- • 

8 







* 8 O 


FORI 

— 1 T O N 




•4 V 0 


X 

< I > 

= I N T < R N J> < 1 

> 

* 

10) 

•*: 

2 

0 +- 3 

3 




*80 


V 

< I > 

= I NT < R N I> «: 1 

) 

4> 

V > :*■ 

■ 

3 

3 





* 8 O 


I 

F P O 

I N T < X < I 

> , V 

< 

I 


8 

T 

H E N * T O 




!> O 0 


I 

F P O 

i n i < x ■: i 

> M- 2 

0 

> 

V < I 

) 

t 

** G T 

HEN470 




5 1 0 


I 

r p o 

I N T < X < I 

> ~ 2 

0 

* 

V < I 

> 

• 

»_ r H E N * T o 




5 2 0 


1 

F P O 

INI < X < I 

> , V 

< 

I 

• 2 

I-I 

• 

- 8 T 

HEN 4 TO 




5 3 0 


I 

r p o 

l N T « X < 1 

> , v 

< 

I 

■> 2 

8 

ì 

-- 8 THEIU70 




5 * O 


P 

r r 

< x •: i :* , v 

< I 

> 

«» 

•l» 

5 5 0 


r 

1.1 v s 

P R I T E I , 

< X < 

1 

> 

S* • 

I 

• 

• . i 

, * 




5 « • O 


n e: x t 





5 T O 


K 

F M 





5 & O 


R 

l II 

C O N T R O L 

L O 

m o 

•f 1 11 E N 

T O 





5 8 0 


R E M 





8 0 0 



*ST 

ICK' O > 




8 1 O 


FORT 

= 1. T O 1 5 0 

N E X T 

8 2 O 


I 

F t» - 

O T H F N 8 0 

0 



8 3 O 


O N 1* * • 

OTOÓ40, 

8 T O 


T 

2 0 , 

T 

c r 

O , 3 

O O , 3 3 0, 

8 3 0 

* 

8 

1 O 








8 * O 


V 


X - 2 S 




8 5 0 


i 

f v • 

< 3 T H E N V 

3 


8 


O T O 8 O 0 
8 8 O G O T O *5» 8 0 

<=■ t 0 y *. — >: > z o 


26 








3 S G I F X r. > 2 1 3THE N X "< = 2 

1 3 Gi O T O 6 e» ó 

e. *3» G V5i-V% - 28 

7 00 I FV/.<3THENV-i=3. X 

«■X5S-28 b O T O 6 0 0 

710 G Ù T O 5i c- O 

72Ù X *- * X *- +• 2 0 

7 30 iFXr. >21 3THENX*/. = 2 

13 : G O T Ù 3 Gì Gì 
740 GOTÙ960 
7 5 Gì X-'.«X-/. + 20 
760 IFX?.>213THENX5{»2 

1 3 : G O T O ii O O 

T 7 0 V *. -* N‘ X + 2 S 

7 S O IFW.>171THEMV5S«1 

7 1 X *. = >: r. - 2 O GO T O 3 Gl G» 

7 5* G GOTO Z* c. 0 

0 Gt G V 3fi — V 2 S 

3 1 G I F V T: > 1 V 1 T H E M V X = 1 

7 L GOTiJ 6 O G 
3 2 G G Ci T O 960 

Gt 3 G X *. — X Ss - 2 G 

3 *4 G IFa‘.<33THÉNXV.»33 

• 60T0600 

3 5 G v/.«vr;+23 

e G Gl 1 F V > 1 7 1 1HENV*. - 1 

7 1 : X — X “i 2 0 • G O T O 6 Gì O 

Ó 7 G GOTO960 

0 3 0 X *. - X * - - 2 Gl 

89Ù I F X < 7 li T H E N X 5* * 3 3 

: e ù T O 6 Ó U 

*5* G G G Ù T 0960 

3 10 X '< = X " - - 2 Gl 

3 2 0 IFX‘/.<33THEN X *<«*3 3 

: G O T 060 0 
3 3 Gì V *- V *-£ - 2 3 

3-4 0 lFV/.<3 IHEUV "< * 3 : X 

•' ma X O G O T 0 3 0 0 

350 60T0960 

3 3 0 IFPOINT<X*/. + 5, W.+ 

5 > «6THEN183 O 
3 7 0 O N S P R I TEGOSUB 1 3 3 

0 

330 SPRITEON 

3 3o p u t s p p i reo, • X , V 

‘S > , 3 

10 0 0 FORT--1TO500 t4 E X 
T T 

1010 F O P i - : I ON 

10 2 0 0 N 3 P PI ) £ 6 0 S *J fc 1 2 

7 O 

1030 SPRITEON 

10-40 I F V * i i *- 2 gì 3 e» N 1* X v 

I > = 2 4 Li TI I E fj 1 1 5 Ù 

1 k> 5 Ù c * 1 

1030 F O P S •■=* L T 0 3 

1070 PurSPRITLl,<X <1 
>,V<I>>,0.5 

10 3 0 FORH = ATOJL00 f4 E : ; 
T 

1030 PUTSPPI TEI , < X < I 

>,v<i>>,c 

litio FORH=1TO100NEX 
T 

Ilio NEX T 

112 0 I F X < J ><X5iTHENX< 

I > = X < 1 >-«-2 0 


113 0 I F X <■ l :• > X *; T H E N X < 

I > = X < I > - 2 Gì 

11-40 I F V < I > < V X T H t. N V \ 

I > = V < I > + 20 


115 0 

I F V < 

I > 

> 

V < T 

> 

z 

Ji 

I 

< 

I > = V 

< I > - 2 

s 





113 0 

R E M 






1 1 7 O 

REM 

C O r 4 

T R G 

L_ L O 

O 

ULCh 

N O 






113 0 

R E M 






113 0 

I F P O 

I N 

T 

< X < 

1 > 5 


V < I > 

+ 5 > = 3 

T » 1 

« 

N X < 

1 > « 2 

4 

O : V < 

I >«20 

•=i 

C 

*= 0 : 

B - £ -g 

1 

12 0 0 

I F M + 

£ — 

N 

THE 

H P L H S* 

"GEDE6" : G O T 

O 

2 0 4 

Gì 


12 10 

P U T S P R 

I 

TEI 

, < X c 

I 

> , V < 

I > > , C 

, 4 





12 2G 

I F X i 

I > 

< 

2 4G 

THE N £ 

E E P : 

B E E P : 

B E 

E 

P : 



12 3 0 

IFX< 

I > 

* 

2 4 0 

THE N P 

E A v 

L. 2 4 G A 

I* F 

A 

• • 



12-40 

T 

FORT 

= 1 

T 

0 5 0 

O : N E 

* # 

12 5 0 

N E X 1 

1 





12 3 0 

G O T O 3 0 

0 





1270 SPftlTEOFF 


1 2 3 O 


I F 

X < 

1 > 

-- X *. 

i < 

r4 r» 

V < I 

■ - v *. 

THE 

14 R L Gl V M L 

1 3 G 

A £ I> 

E M •• 

G G T 

Gì 1 

s a 

0 





12 30 


X < 

1 > 

= 2 

-1 0 

V 

< 

I 

> » 2 

Gì 3 

1 3 O G 


P 1 « 

T S 

p p 

ITE 

I 


< 

2 4 0 

.. 2 0 3 

> 

0 

: H 

- A 

1 





13 1 G 


I F 

A +- 

B - 

N T H 

E N P L A V 

“ G E I> 

E 

• j *• 

. G 

O T O 2 G 4 Gì 



1 3 2 O 


P E 

T U 

R r4 






.1 3 3 Gl 


!.. O 

T O 

ISSO 





1 3 4 Gl 


P E 

M 







13 5 O 


p e 

M 

r* e f i r 4 

I 

2 

I 

O N E 

S P R 

1 

T E 

3 







1 3 3 Gì 


R E 

M 







13 7 0 


F O 

R I 

= i 

T O 1 3 




J. 3 S Gì 


P E 

H l> 

A 1 






1 3 3 G 


£ 4 

- B 

4 

C H R 

4 

• 

G A E < 

"**»£'• 




4 < 

»-• 4 , 

S 

> 

> 

> 

1 4 G O 


C 4 

US «" 

4 -f 

C H R 

4 

< 

V n E < 

*• B " 

»- 

p i 

G H 

T 4 

<• A 4 


3 

> 

> > 

1 4 L gì 


r4 f 

x r 

I 






14 2 Gl 

-4 


> P R I 

T E 

4 < 0 

> 

— 

B4+C 

-f* 

1 4 3 O 


P E 

M 







I -♦ 4 G 


Fui-' 1 

=« 1 

T O 1 

3 




1 -4 5 n 


P E 

• 11- 

M 4- 






1.-4 ti » : i 


l* 4 

- !.. 

4 + 

H R 

4 

r 

•J 

H L < 


i 

l e: 

F T 

4 ■: 

»« 4 .. 

S 

> 

> 

> 

L 4 V t i 


E * 

E 

4 ■*- 

C H R 

4 

< 


A L < 

•• o. £ ** 

■« 

4- I 

b H T 4 

4. A 4 


3 

> 

> > 

1 -4 3 G 


r4 E 

: •: t 

I 






l -4 3 O 
4 

1 5 0 © 


3 P R 1 

T E 

4 < 4 

> 

= 

I> 

4 -♦ E 


R E T U F: N 






l 5 1 G 


l* M 

T t-i 

Ci 0 Gl Gì 

0 

G 

1 

111 

Gì gì G Gì O 

0 








15 2 0 


L‘ M T H 

G O Gl 0 

0 

1 1 

111 

1 Gl 0 1 1 Gl Gl 








J. 5 3 G 


DATA 

0 O 0 Gì 1 1 0 

110 

l 1 Gì O 0 0 








15 4G 


!■ A 

T A 

ti 0 0 0 111 

111 


li©fiO0 


27 







1 5 

T O 

ir¬ 

A 

T 

A 

1 1 

0 O O 

ti 




1 5 

G 0 

r- 

A 

T 

H 

1 1 

O e» 0 

0 




1 ? 

T G 

r» 

A 

T 

A 

O O 

O O 0 

o 




1 5 

8 O 

P 

A 

r 

A 

1 1 

111 

i 




1 5 

■5* O 

r- 

A 

r 

A 

1 1 

1 1 O 

O 




1 6 

0 O 

i- 

A 

r 

A 

1 1 

0 0 O 

0 




1 6 

1 O 

p 

H 

T 

A 

1 1 

m O G 

o 




1 G 

2 O 

p 

A 

T 

H 

HO o o o 




16 3 0 

p 

A 

T 

A 

110 0 0 

0 




1 6 

*4 O 

p 

A 

T 

A 

O X 

1 0 0 

o 

• 



1 6 

5 O 

p 

A 

T 

A 

O O 

110 

0 




1 6 

G O 

I- 

M 

T 

A 

0 0 

111 

G 




1 6 

T 0 

P. E 

M 


1 6 

8 0 

P 

A 

T 

-1 

O 1 

O 0 0 

0 






0OO01OO00Ó 


L r -‘ 

■5» 

Ù 


P 

A 

T A 

X 0 

0 

O 

o 

0 



X T 

O 

o 


P 

A 

T A 

O A 

o 

o 

0 

0 



1 T 

1 

0 


P 

A 

T A 

X 1 

0 

0 

o 

0 



X T 

*1 

o 


P 

A 

<1 

r- 

1 1 

1 

0 

o 

o 



1 T 

3 

0 


p 

A 

T A 

1 1 

i 

1 

0 

0 



1 T 

•4 

G 


P 

A 

T A 

1 1 

1 

O 

0 0 



1 T 

5 o 


P 

A 

T A 

X O 

O 0 

0 O 



X T 

G 0 


I- 

A 

T A 

o o 

0 

o 

O O 




0 U O Ù Ù 1 U 0 0 U 


0000031 



1 T T O 

P A 

T A 


1 

X 

X 1 

min 

111111 










1 T S 0 

P 

A 

T 

A 


0 

0 

0 0 

11X111 

110 0 0 

1. 










X T 8 0 

I- 

A T 

A 


O 

0 

O 0 

X X X 1 1 X 

1 1 0 0 O 

\ 










1 8 O 0 

P 

A 

T 

A 


ìli 

0 

0 0 

0 110 0 1 

1 0 0 0 0 4 










18 10 

P 

A 

T 

M 


0 

O 0 G 

0 1 O 0 O 0 

X 0 O 0 O 0 










X 8 2 0 

P 

i • 

r 

A 


Ò 

0 

0 

L» 

X 0 G U 0 G 

0 X‘ O 0 0 

ii 










1 8 3 0 

r* 

► » 

r 

i « 


O 

0 

0 

X 

X X 0 0 0 0 

XIX O ' -i 

• • 










1840 


E 

T LI R N 





18 5 O 

R 

« 

M 








1 8 G O 

P E 

r-i 


U 

o 

C 

I 

8 

1 UNE 

1 8 T O 

P E 

M 








1 8 3 O 

•2 

C 

R 

E 

E 

N 

3 




1 8 8 O 


L 

8 








1 8 0 O 

o p 

E 

N 

• • 

t- 

R 

P 


- A S tt X 

1 8 1 O 

• 

O L 

O 

R 


X 

5 


6,6 

1 8 2 0 

r- 

P 

A 

W 

M 

B 

M 


A 

, 3 O ** 

18 3 0 


L 

3 








18-4 0 

F* 

R 

I 

N 

T 

« 

X 

> 

• • 

SEI" : P 


R I N T n 1 , ” 3 T a T O *• 

1 8 5 0 J> R A WBM20, X 0 O " 

1 8 G O PRIMI «1, "UCCISO 

■ »• 

1970 PLtìV"L12CPEFABC 


1 8 S O 


I N T E R 0 A L 


N 



18 8 0 


O N I 

N T E R 0 

A 

L. 


2 0 0 0 

O 3 LI B 

2 

1 1 »3 






2 0O O 


ijOTù 2 O 0 0 





2 0 10 


p e m 






2 0 2 0 


f- e r i 

0 I T T 

O 

R 

I 

M 

2 0 3 0 


R E M 






2 0-40 


S C R E E N 1 





2O50 


COLOR A , 

1 

A 

* 

«r- 

2 O G O 


L O C 

a T E 8 , 

5 




2 0 T O 


P R f 

N T M S E 

I 


S 

O P R A 

0 I s S U 

r O •• 






2 0 8 0 


PRI 

N T ** H 

A 

I 


UCCI 

SO 


N ; ** 

ZONE 

I 


E 

" : P R 

I N T •• 


C " E 

RhHO 

•• 

* 

0 

; "0U 

L C A N 

I 

• • 

• 






2 O 8 O 


I F N 

< 5 A N P 0 

> 5 

THEN 

LOCA 

T 

E 3 , 

12 P R 

I 

N T 

" P R O 

0 A C 

O 

r4 p 

I U " Z 

O M B 

I E " 

: P R I 

M 

N T " M 

E N O 0 U L C 

ANI- 

2 10 0 


GOSUB2210 




2 110 


C L S 







2120 S^PEENl 

£J30 COL OR 1,3,12 

2140 L 0 C A T E 3,5” O : PRI 

UCCISO ";A+B; 
•• 2 0 M B I . " 

2 1 5 O IFN>6A N I» U<3THE N 
LOCATE3,IO : PRINT"PRO 
0 A CO ti M E N O ZOMBI E 

P R I NT " PIU" VULCAH I 


• • 

2160 6OSUB2210 

ZITO COLOR 15/4,4 
2 18 0 C L S 
2190 REM 
2200 RETURN 

2210 LOCATE3,18 : PRI N 

T " 0 U O I GIOCARE ANCOR 
A < S ✓ N > M 
2220 A#*INKEV* 

2 2 3 0 IFA**=" S M O R A # « M * 

•• THE N PUNGO 

22 4 0 IFA$“" N** O R A * = " r. 

" THENLOCATE 5 , 1 ~ : PRI 

MT-ARRIVEPERC.I . " 

2250 GOTO2210 


28 






m 


FAI CK tSCF 

Il 700 7199/40 COO LA 




00090 


OFFCO70 J.S0F7 



Dopo il successo ottenuto dalla prima proposta, ecco a disposizione 
del tuo TI-994/A un assortimento di altri splendidi programmi, 
tra i quali il richiestissimo EXTENDED BASIC; il MODULO ADVENTURE, 
che ti permetterà di vivere appassionanti avventure 
e l’EDITOR/ASSEMBLER, indispensabile per il definitivo salto 

di qualità del tuo computer. 

Ordina subito, per essere sicuro di ricevere i programmi al più presto. 






EXTENDED BASIC 

Cod. DTXNX01 - L. 270.000 


Permette, con l’espansione della memoria, di pro¬ 
grammare in linguaggio macchina. 


Finalmente disponibile il linguaggio di program¬ 
mazione compatibile con il BASIC TI-99/4A, con le 
seguenti aggiunte: righe multidichiarazioni. di¬ 
chiarazioni IF-THEN-ELSE, accesso diretto allo 
schermo, sottoprogrammi BASIC con variabili lo¬ 
cali. autoavviamento dei programmi su disco, faci¬ 
le controllo di fino a 28 spritecon concatenamento 
programmi BASIC, fusione codici, programmi 
protetti, dichiarazioni ON ERROR (Errore in atto) e 
funzioni logiche di Boole (AND. OR, NOT 1E. O, 
NO, ecc.). 


MODULO AVVENTURA 

Cod. DTXRX01 - L. 70.000 

Si tratta del modulo di comando, da inserire nella 
consolle, che funge da interprete del linguaggio 
delle cassette sottodescritte. 

Uno strumento indispensabile per arricchire la tua 
software-teca di nuove entusiasmanti avventure. 
Il modulo viene fornito con l'avventura "IL PIRA¬ 
TA”. 

Configurazione richiesta: registratore a cassetta. 


Elenco delle “Avventure" che girano esclusivamente col MODULO AVVENTURA 


Nove programmi entusiasmanti, semplici da usare 
ma difficili da finire. 

All'inizio di ogni avventura viene proposta la situa¬ 
zione in cui ci si trova e viene posta la domanda: 
COSA DEVO FARE? Utilizzando gli oltre 200 voca¬ 
boli previsti dal vocabolario del computer, darai gli 
ordini conseguenti, per trovarti in situazioni sem¬ 
pre diverse fino a realizzare lo scopo del gioco, 
ogni volta differente per ogni titolo. 

Avventure che stimolano la tua capacità di ragio¬ 
nare in modo logico e che richiedono ore, e anche 
settimane, per concludersi. 


Savage Island Series (Serie dell’Isola Selvaggia) 
Cod. DTXMX35 - L. 30.000 

L'avventura si divide in due parti ed inizia ai margi¬ 
ni di una giungla impenetrabile. Mentre esplori 
l'isola, incontrerai delle creature insolite. Dopo 
aver completato la prima parte, riceverai la parola 
d'ordine per iniziare la seconda parte, dove o di¬ 
venterai il più grande eroe al mondo o andrai in¬ 
contro a una fine rapida ed orribile. 


Voodoo Castle (Castello del Voodoo) 

Cod. DTXMX32 - L. 30.000 

Sei all’interno di una cappella di fronte ad una bara 
chiusa. Esplorando il castello, cercherai di racco¬ 
gliere le informazioni necessarie per liberare il 
Conte Cristo dalla terribile maledizione che i suoi 
nemici gli hanno fatto. 

Adventureland 

Cod. DTXMX01 - L. 30.000 

Ti trovi all'inizio della foresta di un mondo di fiaba. 
Esplorandolo, potrai scoprire 13 diversi tesori co¬ 
me pure il luogo particolare dove riporli. 


Mystery Fon House (La casa del Mistero) 

Cod. DTXMX17 - L. 30.000 

Prima di procedere all'esplorazione, devi meditare 
su come fare per entrare nella Casa del Mistero. 
Una volta dentro, potrai vedere tutti gli angoli della 
casa, dove si nasconde un prezioso premio. 

The Count (Il conte) 

Cod DTXMX26 - L. 30.000 

Ti svegli da un pisolino e ti trovi in un letto con un 
paletto da tenda in mano. Sta a te scoprire chi sei. 
cosa stai facendo in Transilvania e perché il posti¬ 
no ha consegnato un flacone di sangue! 


Strange Odyssey (Strana Odissea) 

Cod DTXMX24 - L. 30.000 

Inizia quando ti rendi conto di essere "naufragato" 
su un minuscolo pianeta e quindi devi riparare 
l'astronave per poter tornare a casa. 

Mentre cerchi i pezzi di ricambio sul pianeta, tente¬ 
rai di scoprire i segreti di un'antica civiltà, racco¬ 
gliendo i tesori in cui ti imbatterai lungo la strada. 

The Golden Voyage 

Cod. DTXMX10 - L. 30.000 

Comincerai con l'individuare il palazzo reale nella 
città persiana. Nel palazzo incontrerai l’anziano re 
al quale rimangono solo tre giorni di vita, a meno 
che non riuscirai a ringiovanirlo. 

Portando soltanto una borsa d’oro, salperai in ma¬ 
re alla ricerca della mitica fontana della giovinezza. 


Pyramid of Doom (La Piramide del Destino) 

Cod. DTXMX22 - L. 30.000 

L'avventura inizia in un deserto, nei pressi di uno 
stagno dal quale fuoriesce un palo. Grazie alle tue 
ricerche, troverai una piramide solo di recente sco¬ 
perta dalle sabbie mobili. 

Cercherai l'ingresso, raccoglierai tesori e cerche¬ 
rai di fuggire dalla piramide. 


Ghost Town (La Città Fantasma) 

Cod. DTXMX09 - L. 30.000 

Tutte le città fantasma sono misteriose, ma questa 
ha un fascino particolare: è abitata da fantasmi veri 
ed è piena di tesori. 

Esplora tutti i vecchi edifici per vedere quanti ne 
riuscirai a trovare. 








I programmi seguenti sono Invece moduli Solld State Software, pronti da inserire: 


Music Maker (Il compositore di Musica) 

( od. DTXQX01 - L. 42.000 - con istruzioni in italia¬ 
no 

Un ottimo programma sia per chi vuole avvicinarsi 
alla musica senza cognizioni di base, sia per chi 
deve studiare composizione direttamente sul pro¬ 
gramma e sia per chi utilizza il suono dal punto di 
vista tecnico ed ha interesse per tipo di frequenza, 
ecc.. Il programma prevede due opzioni: scrittura 
di partiture sul pentagramma: inserendo battuta 
per battuta è possibile scrivere partiture composte 
anche da tre voci e persino stamparne gli spartiti 
(in questo caso è necessaria una stampante e l'in¬ 
terfaccia RS232 o similare). L'altra opzione preve¬ 
de la realizzazione delle melodie prendendo in 
esame gli Hertz di una singola nota. 

f artec 

Cod. DTXMX21 - L. 42.000 

PARSEC è la tua astronave, con la quale combatte¬ 
rai gli alieni ribelli e le loro navicelle, buttandole 
fuori rotta e emetterai un fuoco dal tuo laser che fa 
naridire. Tenterai di sopravvivere alla “cintura" di 
asteroidi mortali. 

Per attivare le capacità sonore di questa cartuccia, 
puoi utilizzare lo Speech Synthesizer. 


Soccer (Gioco del Calcio) 

Cod. DTXMX23 - L. 37.000 

Inutile spendere troppe parole per questo apprez- 
zatissimo programma. Cinque giocatori per squa¬ 
dra. con passaggi, tiri, intercettamenti, parate, ca¬ 
riche e molte altre tattiche del calcio. Potete persi¬ 
no avere il replay immediato di una rete, al rallenta¬ 
tore. 

TI Invaders (Invasori TI) 

Cod. DTXMX27 - L. 30.000 

Il mondo viene attaccato da numerose creature 
odiose provenienti dallo spazio. Devi fare affida¬ 
mento sulla tua agilità mentale e fisica per distrug¬ 
gere le creature multicolori con i missili a disposi¬ 
zione. 

Car Wars (Guerre di Auto) 

Cod. DTXMX06 - L. 30.000 

Se ti emozionano le corse automobilistiche, abbi¬ 
nate alla possibilità di battere l'avversario con 
astute manovre, ecco il programma che fa per te. 
Cimenta la tua velocità ed abilità contro il compu¬ 
ter mentre cerchi di avanzare sul circuito, evitando 
incidenti che farebbe saltare il tuo bolide fuori 
pista. 


E ora un'altra eccezionale proposta: 


Game Wrlter's Pack 1 & 2 

Cod. DTXIX13 - L. 35.000 
(prezzo per le 2 confezioni) 


Fun - Pac (1-2-3) 

Cod. DTXMX36 - L. 27.000 
(prezzo per 3 cassette) 


Un'ottima realizzazione didattica divisa in due par¬ 
ti autonome ma complementari che insegna i prin¬ 
cipi (e li approfondisce) della programmazione 
BASIC, tramite la programmazione di videogiochi. 
Molto ben strutturata e comprensibile, utilizza un 
linguaggio semplice ed elementare. In ogni confe¬ 
zione è compresa una cassetta con i giochi di cui si 
parla nel corso della dissertazione. In totale 6 gio¬ 
chi per confezione. 

La trattazione è basata sul TI-BASIC anche se non 
disdegna I EXTENDED BASIC 


Tre cassette (non acquistabili separatamente), 
con 8 giochi complessivi ben strutturati ed avvin¬ 
centi. Dalla corsa dei cavalli al gioco del golf. Dal 
salvataggio di scienziati dalla contaminazione nu¬ 
cleare alla navicella Supernova, un ottimo gioco 
"adventure". 




Edltor/Assembler 

Cod. DTXAX01 - L. 180.000 

L eccezionale programma che ti permette di pro¬ 
grammare in linguaggio di programmazione TSM 
f /900 è dà accesso diretto a tutte le caratteristiche 
del sistema tra cui audio, voce, grafica ed I/O (En¬ 
trata/Uscita). oltrea metterea disposizione la mas¬ 
sima rapidità grazie al microprocessore a 16 bit del 
computer. Le routine in linguaggio di programma¬ 
zione possono essere svolte come programmi in¬ 


dipendenti oppure collegate a programmi TI BA¬ 
SIC o TI BASIC ESTESO con l’impiego di una 
chiamata di sottoroutine. Oltre al modulo SSS. il 
programma comprende due floppy-disk (uno dei 
quali contiene il gioco TOMBSTONE CITY) e il 
Manuale Utente che dà tutte le informazioni sulla 
composizione del software. 
L'EDITOR/ASSEMBLER richiede i seguenti optio¬ 
nal: 















— Peripheral Expansion Box 

Cod. ETX0X01 - L. 320.00tf 

— 32 K Expansion Card 

Cod. ETXOX02 - L. 340 000 


N. B. é possibile acquistare insieme gli optiona» 
ETXOXOI - ETXOX02 - ETXOX03 - ETXOX04, al 
prezzo complessivo di L. 1.250.000 anziché L. 
1.580.000. In questo caso, il codice da indicare per 
l’acquisto dei 4 pezzi è ETXOX05 


- Drive Control Card 

Cod. ETXOX03 - L. 440.000 

— Floppy disk drive Box 

Cod ETXOX04 - L. 480.000 

e, infine, freschi di stampa, escontati del 10% sul prezzo di copertina: 

— 35 Programmi per il TI-99/A4 - 

editore MUZ2IO 
Cod. AMUC024 - L. 9.000 


Paper Book - TI-99/4A (con cassetta) - 
editore J soft 

Cod. ASOC007 - L. 16.200 


Una selezione dei migliori programmi tratti dal no¬ 
stro settimanale PAPER SOFT, scelti accurata¬ 
mente sulla base della loro originalità e fantasia. 


Programmi divertenti e didattici, dal labirinto al 
tennis, dagli anagrammi alle conversioni metriche 
e tanti altri ancora. 



Spett. J.spft - Viale Restelli, 5 - 20124 Milano (MI) 

Tel. 02/6888228-683797-6880841 /2/3/ 

Ordino il seguente software/libri per il TI-99/4A: 

cod. cod. cod. 

cod. cod. cod. 

cod. cod. cod. 

per un totale di L.-f- L. 2.500 per contributo fisso di spese di spedizione. 

Scelgo la seguente modalità di pagamento: 

□ pagherò in contrassegno al postino 

□ allego assegno (o contanti) 

□ verso l’importo sul C.C.P. n. 19445204 
intestato a J .soft (allego ricevuta) 

Nome. 

Cognome . 

Via . n . 

CAP .Città .Prov. 
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